home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2001 April / april_2001.iso / intercd / root / Browsers / ^bu_Communicator / Mirc / setup.exe / SPD / SPD4.INI < prev    next >
Encoding:
INI File  |  2001-02-19  |  17.1 KB  |  386 lines
  1. [script]
  2. n0=alias pictest {
  3. n1=  %temp.shit.nick = @ $+ $wallareversed($wallahebrew($len($2),$2))  $+ -P $+ $rand(1,999)
  4. n2=
  5. n3=  if ($mid($1,8,3) == 001) {
  6. n4=    window -apdhk0 %temp.shit.nick -1 -1 320 230
  7. n5=    ;  drawfill -s %temp.shit.nick 0 0 0 0  
  8. n6=    drawpic %temp.shit.nick 0 0 0 0 750 700 back.bmp
  9. n7=    if (%spd.display.sound == ON) { .splay sound\voice2.wav }
  10. n8=  }
  11. n9=  else if ($mid($1,8,3) == 002) {
  12. n10=    window -apdhk0 %temp.shit.nick -1 -1 320 220
  13. n11=    drawpic %temp.shit.nick 0 0 0 0 750 700 gfx\cartman.bmp
  14. n12=    if (%spd.display.sound == ON) { .splay sound\cartman.mp3 }
  15. n13=  }
  16. n14=  else if ($mid($1,8,3) == 003) {
  17. n15=    window -apdhk0 %temp.shit.nick -1 -1 350 350
  18. n16=    drawpic %temp.shit.nick 0 0 0 0 750 700 gfx\sadb.bmp
  19. n17=    if (%spd.display.sound == ON) { .splay sound\twilight.wav }
  20. n18=  }
  21. n19=  else if ($mid($1,8,3) == 004) {
  22. n20=    window -apdhk0 %temp.shit.nick -1 -1 350 350
  23. n21=    drawpic %temp.shit.nick 0 0 0 0 750 700 gfx\happyb.bmp
  24. n22=    if (%spd.display.sound == ON) { .splay sound\voice2.wav }
  25. n23=  }
  26. n24=  else if ($mid($1,8,3) == 005) {
  27. n25=    window -apdhk0 %temp.shit.nick -1 -1 380 290
  28. n26=    drawpic %temp.shit.nick 0 0 0 0 750 700 gfx\cupidb.bmp
  29. n27=    if (%spd.display.sound == ON) { .splay sound\op.wav }
  30. n28=  }
  31. n29=  else { goto nopic }
  32. n30=
  33. n31=  %temp.shit = $3-
  34. n32=  if (%temp.shit == $null) { %temp.shit = BUMIRC - SPD@HOTMAIL/CO/IL }
  35. n33=
  36. n34=  titlebar %temp.shit.nick        $+       $wallareversed($wallahebrew($len(%temp.shit),%temp.shit))       
  37. n35=  unset %temp.shit*
  38. n36=
  39. n37=  :nopic
  40. n38=
  41. n39=}
  42. n40=
  43. n41=on :START: {
  44. n42=  /tray -i1 bumirc.ico
  45. n43=  /ial on
  46. n44=  unset %spd.msg.*
  47. n45=  unset %spd.dcc.*
  48. n46=  unset %spd.notice.*
  49. n47=  unset %spd.action.*
  50. n48=  unset %spd.ctcp.*
  51. n49=  if (%spd.display.sound == $null) { set %spd.display.sound ON }
  52. n50=  if (%spd.display.sound == ON) { .splay sound\open.wav }
  53. n51=
  54. n52=  if (%spd.display.pictures == $null) { %spd.display.pictures = ON }
  55. n53=  if (%spd.display.popup == $null) { %spd.display.popup = ON }
  56. n54=
  57. n55=  if (%spd.private.protection == $null) { %spd.private.protection = off }
  58. n56=  if (%spd.private.open == $null) { %spd.private.open = ⌠·τ }
  59. n57=  if (%spd.private.close == $null) { %spd.private.close = ±Γσ° }
  60. n58=  %spd.private.status = close
  61. n59=
  62. n60=  if  (%spd.display.ops == $null) { set %spd.display.ops OFF }
  63. n61=  if (%spd.display.mode == $null) { set %spd.display.mode ON }
  64. n62=  if (%spd.display.ban == $null) { set %spd.display.ban ON }
  65. n63=  if (%spd.display.joinquit == $null) { set %spd.display.joinquit ON }
  66. n64=  if (%spd.realip.status != $null) { unset %spd.realip.status }
  67. n65=  set %spd.ver v2.05b
  68. n66=  if (%spd.flood.dcc == $null) { set %spd.flood.dcc NORMAL }
  69. n67=  if (%spd.flood.notice == $null) { set %spd.flood.notice NORMAL }
  70. n68=  if (%spd.flood.action == $null) { set %spd.flood.action NORMAL }
  71. n69=  if (%spd.flood.ctcp == $null) { set %spd.flood.ctcp NORMAL }
  72. n70=  if (%spd.flood.msg == $null) { set %spd.flood.msg NORMAL }
  73. n71=  if (%spd.flood.ignore == $null) { set %spd.flood.ignore 345 }
  74. n72=  if (%spd.away.timer == $null) { set %spd.away.timer 1200 }
  75. n73=  if (%spd.visible.notice == $null) { set %spd.visible.notice ON }
  76. n74=  if (%spd.visible.ctcp == $null) { set %spd.visible.ctcp ON }
  77. n75=  if (%spd.visible.action == $null) { set %spd.visible.action ON }
  78. n76=  if (%spd.dns.active != $null) { unset %spd.dns.active }
  79. n77=
  80. n78=  if (%spd.color.own == $null) { set %spd.color.own 12 }
  81. n79=  if (%spd.color.chan == $null) { set %spd.color.chan 15 }
  82. n80=  if (%spd.color.notice == $null) { set %spd.color.notice 7 }
  83. n81=  if (%spd.color.ctcp == $null) { set %spd.color.ctcp 7 }
  84. n82=  if (%spd.color.ban == $null) { set %spd.color.ban 4 }
  85. n83=  if (%spd.color.joinpart == $null) { set %spd.color.joinpart 3 }
  86. n84=  if (%spd.color.mode == $null) { set %spd.color.mode 3 }
  87. n85=  if (%spd.color.action == $null) { set %spd.color.action 3 }
  88. n86=  if (%spd.color.msg.own == $null) { set %spd.color.msg.own 12 }
  89. n87=  if (%spd.color.msg.other == $null) { set %spd.color.msg.other 1 }
  90. n88=  if (%spd.color.notify == $null) { set %spd.color.notify 7 }
  91. n89=
  92. n90=  if (%spd.color.bu-black.own == $null) { set %spd.color.bu-black.own 12 }
  93. n91=  if (%spd.color.bu-black.chan == $null) { set %spd.color.bu-black.chan 15 }
  94. n92=  if (%spd.color.bu-black.notice == $null) { set %spd.color.bu-black.notice 7 }
  95. n93=  if (%spd.color.bu-black.ctcp == $null) { set %spd.color.bu-black.ctcp 7 }
  96. n94=  if (%spd.color.bu-black.ban == $null) { set %spd.color.bu-black.ban 4 }
  97. n95=  if (%spd.color.bu-black.joinpart == $null) { set %spd.color.bu-black.joinpart 3 }
  98. n96=  if (%spd.color.bu-black.mode == $null) { set %spd.color.bu-black.mode 3 }
  99. n97=  if (%spd.color.bu-black.action == $null) { set %spd.color.bu-black.action 3 }
  100. n98=  if (%spd.color.bu-black.msg.own == $null) { set %spd.color.bu-black.msg.own 12 }
  101. n99=  if (%spd.color.bu-black.msg.other == $null) { set %spd.color.bu-black.msg.other 1 }
  102. n100=  if (%spd.color.bu-black.notify == $null) { set %spd.color.bu-black.notify 7 }
  103. n101=
  104. n102=  if (%spd.color.white.own == $null) { set %spd.color.white.own 12 }
  105. n103=  if (%spd.color.white.chan == $null) { set %spd.color.white.chan 1 }
  106. n104=  if (%spd.color.white.notice == $null) { set %spd.color.white.notice 7 }
  107. n105=  if (%spd.color.white.ctcp == $null) { set %spd.color.white.ctcp 7 }
  108. n106=  if (%spd.color.white.ban == $null) { set %spd.color.white.ban 4 }
  109. n107=  if (%spd.color.white.joinpart == $null) { set %spd.color.white.joinpart 3 }
  110. n108=  if (%spd.color.white.mode == $null) { set %spd.color.white.mode 3 }
  111. n109=  if (%spd.color.white.action == $null) { set %spd.color.white.action 3 }
  112. n110=  if (%spd.color.white.msg.own == $null) { set %spd.color.white.msg.own 12 }
  113. n111=  if (%spd.color.white.msg.other == $null) { set %spd.color.white.msg.other 1 }
  114. n112=  if (%spd.color.white.notify == $null) { set %spd.color.white.notify 7 }
  115. n113=  set %away off
  116. n114=
  117. n115=  /window -xedl10k0S @BUmirc_
  118. n116=
  119. n117=  %sHight = $calc(($window(-1).h - 480 ) / 2 )
  120. n118=  %sWidth = $calc(($window(-1).w - 640 ) / 2)
  121. n119=  if (%set != done)  { %cNick = turj | %startroom = 1 | %io = on | %shownick = on | %Jpwin = on | %nicklist = l | setup }
  122. n120=  /startup
  123. n121=}  
  124. n122=
  125. n123=alias makeSPD { /getSPD |  /editbox $active }
  126. n124=alias getSPD {
  127. n125=  unset %SPDvar1
  128. n126=  unset %SPDvar2
  129. n127=  unset %SPDvar3 
  130. n128=  unset %SPDvar4
  131. n129=  unset %SPDvar5
  132. n130=  unset %SPDvar6
  133. n131=  unset %SPDvar7
  134. n132=  unset %SPDvar8
  135. n133=  unset %SPDvar9
  136. n134=  set %temp_get $sline($active,1).ln
  137. n135=  if (%temp_get == $null) editbox $active
  138. n136=  else {    %_NickPos = $pos($line($active,%temp_get,1),.,1) + 2
  139. n137=    %_NickLen = $mid($line($active,%temp_get,1),%_NickPos,0)
  140. n138=    %SPDvar1 = $mid($line($active,%temp_get,1),%_NickPos,%_NickLen))
  141. n139=    %isP = yes 
  142. n140=    editbox  -p $active \⌠°ΦΘ: $putname($wallaHebToEng(%SPDvar1))  
  143. n141=  }
  144. n142=  set %temp_get $sline($active,2).ln
  145. n143=  if (%temp_get == $null) editbox $active 
  146. n144=  else {    %_NickPos = $pos($line($active,%temp_get,1),.,1) + 2
  147. n145=    %_NickLen = $mid($line($active,%temp_get,1),%_NickPos,0)
  148. n146=    %SPDvar2 = $mid($line($active,%temp_get,1),%_NickPos,%_NickLen))
  149. n147=    %isP = yes 
  150. n148=    editbox  -p $active \⌠°ΦΘ: $putname($wallaHebToEng(%SPDvar2))  
  151. n149=  }
  152. n150=  set %temp_get $sline($active,3).ln
  153. n151=  if (%temp_get == $null) editbox $active 
  154. n152=  else {    %_NickPos = $pos($line($active,%temp_get,1),.,1) + 2
  155. n153=    %_NickLen = $mid($line($active,%temp_get,1),%_NickPos,0)
  156. n154=    %SPDvar3 = $mid($line($active,%temp_get,1),%_NickPos,%_NickLen))
  157. n155=    %isP = yes 
  158. n156=    editbox  -p $active \⌠°ΦΘ: $putname($wallaHebToEng(%SPDvar3))  
  159. n157=  }
  160. n158=  set %temp_get $sline($active,4).ln
  161. n159=  if (%temp_get == $null) editbox $active 
  162. n160=  else {    %_NickPos = $pos($line($active,%temp_get,1),.,1) + 2
  163. n161=    %_NickLen = $mid($line($active,%temp_get,1),%_NickPos,0)
  164. n162=    %SPDvar4 = $mid($line($active,%temp_get,1),%_NickPos,%_NickLen))
  165. n163=    %isP = yes 
  166. n164=    editbox  -p $active \⌠°ΦΘ: $putname($wallaHebToEng(%SPDvar4))  
  167. n165=  }
  168. n166=  set %temp_get $sline($active,5).ln
  169. n167=  if (%temp_get == $null) editbox $active 
  170. n168=  else {    %_NickPos = $pos($line($active,%temp_get,1),.,1) + 2
  171. n169=    %_NickLen = $mid($line($active,%temp_get,1),%_NickPos,0)
  172. n170=    %SPDvar5 = $mid($line($active,%temp_get,1),%_NickPos,%_NickLen))
  173. n171=    %isP = yes 
  174. n172=    editbox  -p $active \⌠°ΦΘ: $putname($wallaHebToEng(%SPDvar5))  
  175. n173=  }
  176. n174=  set %temp_get $sline($active,6).ln
  177. n175=  if (%temp_get == $null) editbox $active 
  178. n176=  else {    %_NickPos = $pos($line($active,%temp_get,1),.,1) + 2
  179. n177=    %_NickLen = $mid($line($active,%temp_get,1),%_NickPos,0)
  180. n178=    %SPDvar6 = $mid($line($active,%temp_get,1),%_NickPos,%_NickLen))
  181. n179=    %isP = yes 
  182. n180=    editbox  -p $active \⌠°ΦΘ: $putname($wallaHebToEng(%SPDvar6))  
  183. n181=  }
  184. n182=  set %temp_get $sline($active,7).ln
  185. n183=  if (%temp_get == $null) editbox $active 
  186. n184=  else {    %_NickPos = $pos($line($active,%temp_get,1),.,1) + 2
  187. n185=    %_NickLen = $mid($line($active,%temp_get,1),%_NickPos,0)
  188. n186=    %SPDvar7 = $mid($line($active,%temp_get,1),%_NickPos,%_NickLen))
  189. n187=    %isP = yes 
  190. n188=    editbox  -p $active \⌠°ΦΘ: $putname($wallaHebToEng(%SPDvar7))  
  191. n189=  }
  192. n190=  set %temp_get $sline($active,8).ln
  193. n191=  if (%temp_get == $null) editbox $active 
  194. n192=  else {    %_NickPos = $pos($line($active,%temp_get,1),.,1) + 2
  195. n193=    %_NickLen = $mid($line($active,%temp_get,1),%_NickPos,0)
  196. n194=    %SPDvar8 = $mid($line($active,%temp_get,1),%_NickPos,%_NickLen))
  197. n195=    %isP = yes 
  198. n196=    editbox  -p $active \⌠°ΦΘ: $putname($wallaHebToEng(%SPDvar8))  
  199. n197=  }
  200. n198=  set %temp_get $sline($active,9).ln
  201. n199=  if (%temp_get == $null) editbox $active 
  202. n200=  else {    %_NickPos = $pos($line($active,%temp_get,1),.,1) + 2
  203. n201=    %_NickLen = $mid($line($active,%temp_get,1),%_NickPos,0)
  204. n202=    %SPDvar9 = $mid($line($active,%temp_get,1),%_NickPos,%_NickLen))
  205. n203=    %isP = yes 
  206. n204=    editbox  -p $active \⌠°ΦΘ: $putname($wallaHebToEng(%SPDvar9))  
  207. n205=  }
  208. n206=  unset %temp_get
  209. n207=}
  210. n208=
  211. n209=alias f1 {
  212. n210=  /spdabout
  213. n211=}
  214. n212=
  215. n213=alias spdabout { 
  216. n214=  if (%spd.display.sound == ON) && (%io == on) { .splay sound\about.wav }
  217. n215=  set %spd.tmp BUmirc %spd.ver Teap/sPD
  218. n216=  set %boobee a 
  219. n217=  dialog -ma spdabout.bumirc spdabout.bumirc
  220. n218=}
  221. n219=
  222. n220=dialog spdabout.bumirc {
  223. n221=  title %spd.tmp
  224. n222=  size 200 100 300 340
  225. n223=  text "Radio BU99FM - BUmirc", 1, 10 20 140 15, left
  226. n224=  icon 2, 110 10 280 50, back.bmp,index
  227. n225=  button "www ",91, 140 40 60 20
  228. n226=  button "audio" , 92, 75 40 60 20
  229. n227=  button  "video" , 93, 10 40 60 20
  230. n228=  box "",3,-10 70 320 400
  231. n229=  text " ß°σδΘφ ΣßαΘφ ∞÷αΦ ∙∞ ßΘ.Θσ.99.α≤.αφ , ß÷αΦ µΣ ·σδ∞σ ∞Σ·δ·ß ≥φ Σ∙π°∩ ασ Σ∙π°≡Θ· ΣαΣσßΘφ ≥∞Θδφ ßδ∞ µε∩ σ∞⌠Γσ∙ α≡∙Θφ ε≥≡ΘΘ≡Θφ" , 10 , 10 90 290 200, center
  232. n230=  box "",96,-10 130 320 400
  233. n231=  text "≡σ÷° ßΘπΘ ΦΘα⌠ \ ∙σ⌠° ßΘπΘ αßΘ σε≥Θ∩ ΣΘ°∙ \ αΘ≡Φ°α≈÷ΘΣ ≡δ·ßΣ ≥∞ ΘπΘ α∞Θ °⌠σ⌠σ°Φ " 95, 10 150 290 190,center
  234. n232=  text " ·σπΣ εΘστπ· ∞πΘ.ΓΘ α∞ßσ ≥∞ Σεσ±Θ≈Σ σ∞εαΦ ≥∞ Σ⌠Θπß≈Θφ ΣτΘσßΘΘφ σΣ∙∞Θ∞ΘΘφ :] ßΣΣ ",11,1 180 290 40,center
  235. n233=  box "",97,-10 210 320 400
  236. n234=  text "·σπΣ εΘστπ· ∞∙⌠≡⌠≡Θ Σ≡Θ±σΘ ∙∞ ΣεΘ°≈.. εαΦ, ≥≡· σα± ≥∞ Σ≥÷σ· Σ∙Θ⌠σ°Θφ σΣΘ°Θπσ· ≥∞ ΣßαΓΘφ σ·σπΣ Γφ ∞°Γµ≡Θ·, ·∙α°Θ δεσ ∙α· εσ·≈! :] τττ" ,12,1 230 290 40,center
  237. n235=  text "www.VOICE99.co.il\MIRC ασ www.BUMIRC.cjb.net",98,1 285 300 30,center
  238. n236=  button " ≥µ°Σ ",94,90 315 40 20
  239. n237=  button "αΘ∙σ°", 999, 170 315 40 20, ok
  240. n238=}
  241. n239=
  242. n240=on *:dialog:spdabout.bumirc:sclick:*:{
  243. n241=  if ($did == 91) { /run http://bu99fm.co.il }
  244. n242=  if ($did == 92) { /run http://www.aquanet.co.il/radio99.asx }
  245. n243=  if ($did == 93) { /run http://www.video.net.il/video99.asx }
  246. n244=  if ($did == 94) { /run $mircdir $+ bumirc.txt }
  247. n245=  if (%spd.tmp != $null) { unset %spd.tmp }
  248. n246=}
  249. n247=
  250. n248=alias spd.do.protection {
  251. n249=  dialog -ma spd.protection spd.protection
  252. n250=  did -a spd.protection 1 NORMAL
  253. n251=  did -a spd.protection 1 HIGH
  254. n252=  did -a spd.protection 1 OFF
  255. n253=  did -a spd.protection 2 NORMAL
  256. n254=  did -a spd.protection 2 HIGH
  257. n255=  did -a spd.protection 2 OFF
  258. n256=  did -a spd.protection 3 NORMAL
  259. n257=  did -a spd.protection 3 HIGH
  260. n258=  did -a spd.protection 3 OFF
  261. n259=  did -a spd.protection 4 NORMAL
  262. n260=  did -a spd.protection 4 HIGH
  263. n261=  did -a spd.protection 4 OFF
  264. n262=  did -a spd.protection 5 NORMAL
  265. n263=  did -a spd.protection 5 HIGH
  266. n264=  did -a spd.protection 5 OFF
  267. n265=
  268. n266=  if (%spd.flood.msg == NORMAL) { did -c spd.protection 1 1 }
  269. n267=  else if (%spd.flood.msg == HIGH) { did -c spd.protection 1 2 }
  270. n268=  else if (%spd.flood.msg == OFF) { did -c spd.protection 1 3 }
  271. n269=
  272. n270=  if (%spd.flood.dcc == NORMAL) { did -c spd.protection 2 1 }
  273. n271=  else if (%spd.flood.dcc == HIGH) { did -c spd.protection 2 2 }
  274. n272=  else if (%spd.flood.dcc == OFF) { did -c spd.protection 2 3 }
  275. n273=
  276. n274=  if (%spd.flood.notice == NORMAL) { did -c spd.protection 3 1 }
  277. n275=  else if (%spd.flood.notice == HIGH) { did -c spd.protection 3 2 }
  278. n276=  else if (%spd.flood.notice == OFF) { did -c spd.protection 3 3 }
  279. n277=
  280. n278=  if (%spd.flood.action == NORMAL) { did -c spd.protection 4 1 }
  281. n279=  else if (%spd.flood.action == HIGH) { did -c spd.protection 4 2 }
  282. n280=  else if (%spd.flood.action == OFF) { did -c spd.protection 4 3 }
  283. n281=
  284. n282=  if (%spd.flood.ctcp == NORMAL) { did -c spd.protection 5 1 }
  285. n283=  else if (%spd.flood.ctcp == HIGH) { did -c spd.protection 5 2 }
  286. n284=  else if (%spd.flood.ctcp == OFF) { did -c spd.protection 5 3 }
  287. n285=
  288. n286=}
  289. n287=
  290. n288=dialog spd.protection {
  291. n289=  size -1 -1 320 220
  292. n290=  title "User Protections"
  293. n291=  combo 1,100 5 100 200, drop
  294. n292=  combo 2,100 35 100 200, drop
  295. n293=  combo 3,100 65 100 200, drop
  296. n294=  combo 4,100 95 100 200, drop
  297. n295=  combo 5,100 125 100 200, drop
  298. n296=  edit %spd.flood.ignore,6,100 155 85 20
  299. n297=
  300. n298=  text "Private messages",11,1 8 100 20
  301. n299=  text "DCC",12,1 38 100 20
  302. n300=  text "Notices",13,1 68 100 20
  303. n301=  text "Actions",14,1 98 100 20
  304. n302=  text "CTCP",15,1 128 100 20
  305. n303=  text "Ignore time (secs)",16,1 158 100 20
  306. n304=
  307. n305=  text "Σσπ≥σ· ⌠°ΦΘσ·",21,237 8 200 20
  308. n306=  text "≈ß÷Θφ",22,282 38 200 20
  309. n307=  text "Σ·°≥σ·",23,277 68 200 20
  310. n308=  text "⌠≥σ∞σ·",24,279 98 200 20
  311. n309=  text "⌠Θ≡Γ",25,294 128 200 20
  312. n310=  text "µε∩ Σ·≥∞εσ· ß∙≡Θσ·",26,210 158 200 20
  313. n311=
  314. n312=  button " ∙Θ≡σΘ ",301,210 190 50 20,ok 
  315. n313=  button " ßΘΦσ∞ ",302,130 190 50 20,cancel
  316. n314=}
  317. n315=
  318. n316=on *:dialog:spd.protection:sclick:301: {
  319. n317=  %spd.flood.msg = $did(1,$did(spd.protection,1).sel)).text
  320. n318=  %spd.flood.dcc = $did(2,$did(spd.protection,2).sel)).text
  321. n319=  %spd.flood.notice = $did(3,$did(spd.protection,3).sel)).text
  322. n320=  %spd.flood.action = $did(4,$did(spd.protection,4).sel)).text
  323. n321=  %spd.flood.ctcp = $did(5,$did(spd.protection,5).sel)).text
  324. n322=  if ($calc($did(spd.protection,6).text) == 0) { %spd.flood.ignore = 345 }
  325. n323=  else { %spd.flood.ignore = $calc($did(spd.protection,6).text) }
  326. n324=}
  327. n325=
  328. n326=alias spd.join {
  329. n327=  if ($me ison $mid($active,9,50)) || ($mid($active,9,50) == $1) { /join $1 }
  330. n328=  else {
  331. n329=    set %join.temp @BUmirc_ $+ $1
  332. n330=    if (BUmirc_ isin $active) && ($active != %join.temp) { /renwin $active %join.temp }
  333. n331=    else if ($window(@BUmirc_*,1) != %join.temp) { /renwin $window(@BUmirc_*,1) %join.temp }
  334. n332=    unset %join.temp
  335. n333=    /join $1
  336. n334=  }
  337. n335=}
  338. n336=
  339. n337=raw 405:*: {
  340. n338=  ; SYNTAX: nick # You have joined too many channels
  341. n339=  ; NOTE: wallachat users will not be shown this dialog, else, automaticy join another room.
  342. n340=
  343. n341=  if ($server == wallachat.chat.server) && ($port == 4468) { 
  344. n342=    /part $mid($active,9,50)
  345. n343=    /timer 1 2 /spd.join $2
  346. n344=    goto end
  347. n345=  }
  348. n346=
  349. n347=  %spd.chan.join =  $2
  350. n348=  dialog -ma spd.toomanyrooms spd.toomanyrooms
  351. n349=
  352. n350=  :end
  353. n351=
  354. n352=}
  355. n353=
  356. n354=dialog spd.toomanyrooms {
  357. n355=  size -1 -1 320 80
  358. n356=  title "Alert"
  359. n357=  text "  ,Σ∙°· ∞α εα⌠∙° δ≡Θ±Σ ∞≥σπ τπ°Θφ  ",1,118 10 200 200
  360. n358=  text " ?Σαφ α·\Σ °σ÷Σ ∞≥µσß α· Στπ° Σ≡σδτΘ σ∞Σ÷Φ°≤ ∞τπ∙  ",2,20 30 300 200
  361. n359=
  362. n360=  button " δ∩ ",301,180 50 50 20,ok 
  363. n361=  button " ∞α ",302,100 50 50 20,cancel
  364. n362=}
  365. n363=
  366. n364=on *:dialog:spd.toomanyrooms:sclick:301: {
  367. n365=  /part $mid($active,9,50)
  368. n366=  /timer 1 2 /spd.join %spd.chan.join | unset %spd.chan.join
  369. n367=}
  370. n368=
  371. n369=on *:dialog:spd.toomanyrooms:sclick:302: {
  372. n370=  unset %spd.chan.join
  373. n371=}
  374. n372=
  375. n373=raw 404:*: set %tempo *** kt bh,i kakuj nhsg kgru.! | spdECHO 4 $2 $wallahebrew($len(%tempo),%tempo) | unset %tempo
  376. n374=raw 437:*: set %tempo *** kt bh,i kabu, fhbuh fk gus ha gkhl cti! | spdECHO 4 $2 $wallahebrew($len(%tempo),%tempo) | unset %tempo
  377. n375=raw 494:*: spdSHOWALL 0 4 *** var, kt ,unl cp,hj, jsrho jsaho - tbt vmyrp\h ktjs nvehhnho! 
  378. n376=
  379. n377=
  380. n378=; raw *:*: echo 4 -s $numeric : $2-
  381. n379=
  382. n380=menu @spdPVTclose {
  383. n381=  erase LOG : /run spd\eraselog.bat
  384. n382=}
  385.  
  386.